home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Cool Specials / Al Morale Demo / Al's Stuff / D200.DCR / 00161_3 Butt.ls < prev    next >
Encoding:
Text File  |  1999-02-16  |  467 b   |  27 lines
  1. on mouseDown
  2.   global gCSpecial
  3.   puppetSprite(10, 1)
  4.   set the memberNum of sprite 10 to 177
  5.   if the optionDown then
  6.     set gCSpecial to "C400"
  7.   else
  8.     set gCSpecial to EMPTY
  9.   end if
  10.   set the ink of sprite 10 to 0
  11.   updateStage()
  12.   repeat while the stillDown
  13.   end repeat
  14. end
  15.  
  16. on mouseUp
  17.   global gCSpecial
  18.   puppetSprite(10, 0)
  19.   updateStage()
  20.   if gCSpecial <> "C400" then
  21.     PlayCon()
  22.   else
  23.     set name to string(gCSpecial)
  24.     go(1, name)
  25.   end if
  26. end
  27.